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SDRESSING_MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
)e2 


COOOCOCCCOO 


oOooooooeo 
oo 
NOUS Wr — 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL FQu IPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


is COPIES THEREOF MAY NOT BE PROVIDED OR OTHE 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP O 
!t TRANSFERRED. 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJE 
'* AND SHOULD NOT BE CONSTRUED AS A COMM 
CORPORATION. 


't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


. Y IN $ 
te INCLUSION OF THE NABOV E sor resent NOTICE. TH TWARE Y OTHER 
; at AVAILABLE TO ANY 


O CHANGE WITHOUT NOTICE 
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ITMENT BY DIGITAL EQUIPMENT 


a eeneeneeneeeeeeeeenenannen 
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STC Processes the .SEND TOC command 18s Sep-1984 VAX-11 Bliss-32 V4.0-742 e STD 
v04-000 Revision H story 14-Sep o=19 4 9} obi DISKSVMSMASTER: CRUNOFF.SRCIJSTC. BLI;1 ins (28 v04 
3 : § ! poorhe "Revision History’ 
; 49 4 MODIFIED BY: 
.¢ § ii 010 REMO0010 y Ma rshe Ut 17-November=1983 
ee! 1 i fied the Pa... al deft nition of ATABLE co use the new 
3 ri re ! macro ATABLE_DEFINITION def ined. in ATCODE.REQ. 
> 41 : 1} 009 KFA00009 Alden 16-Mar-1983 
; § ! Save/restore relaned tems now enabled for DSR as well. 
> 54 : 1 i 008 REMOO Ray Marshall 07-Mar-1983 
: 5 41) G obal OB it of all modules. Updated module names, idents, 
; $ 56 ! ¥ copyright dates. Changed require files to BLISS library. 
: §8 057 1 i- 


ND TOC command 


Processes the .S 
Module Level Dec 


¥SBTTL "Module Level Declarations’ 
i TABLE OF CONTENTS: 


ao 
-—o 


i INCLUDE FILES: 


BRARY 'NXPORT:XPORT'; 
UIRE "REQ:RNODEF'; 


NOUS wr 


ARY ‘REQ:DSRLIB'; 


NNO AAA AA OO 


NOUEWN OO OONOUS WN —OOW 
NeofTiewe- Tie 


EQUATED SYMBOLS: 


eee at ot Be | 


EXTERNAL LITERAL 
RINTES : UNSIGNED (8); 


OWN STORAGE: 


COCo COCO CO COOOCOOO NI NIN 


SELESSRANLSSELEALANLESE 


: $H_R_SCA_BLOCK; 
EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
ENDWRD, 


PWN 2 OODNAUE WN OO OODNAU EWN 0 OO NOUS WN HO ODN WN OC ODOM 
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Be Se Se Se Ge Se Be Be Be Se Be Be Ge Be Be Se Ge Se Se Ge Ge Fe Se Fe Se Se ae FH Se Ge Ge Se Ge Ge Ge Se Ge Se Ge Ge Se Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Seas 


Used in PUSH_SCA, POP_SCA macros (defined in SCA.REQ). 


: atable_definition, ! Action table. 


$3 
= 


2.V4.0-742 Page 
:CRUNOFF.SRCIJSTC.BLI;1 


XPORT Library 

RUNOFF variant definitions 
! DSRPLUS BLISS Library 

! DSR BLISS Library 


Used to identify what type of 
! action is to be taken on encountering any 
! given character. 
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Processes the .SEND TOC command 1b-se -1984 01:48:37 VAX-11 Bliss-32 V4.0-742 Pa 5 
STC <== 1 ~ep-19 4 Te DISKSVMSMASTER: CRUNOFF.SRCIJSTC.BLI;1 ™ (4) 
47 1 &%SBTTL ‘STC --' 
‘3 } GLOBAL ROUTINE stc (handler_code, do_toc) : NOVALUE = 
QO 1 !+4 
} } FUNCTIONAL DESCRIPTION: 
; See ABSTRACT, in module header. 
5 FORMAL PARAMETERS: 
2 1 HANDLER_CODE - A dummy parameter, used for conformance only. 
28 | DO_TOC = If FALSE, the scan is done but no toc entry is made. 
69 IMPLICIT INPUTS: None 
0 6¢ ! IMPLICIT OUTPUTS: None 
64 1 | ROUTINE VALUE: 
re 1 COMPLETION CODES: None 
67 1 ! SIDE EFFECTS: None 
68 1! 
8 69 1 !-- 
70 BEGIN 
0271 
0 Le; LOCAL 
027 sca_para_copy, 
0274 sca_indent_copy, 
0275 hold_ind_flag, 
0 6 hold_ind_eflag, 
027 hold_all_flags, ‘Vers. 1(123), KAD. 
8 A sca_copy : sca_definition; ‘Used to preserve SCA. 
8 80 LOCAL 
H mra_temp : VECTOR ff + CHSALLOCATION (1000)], Tonparery MRA area 
0 Ht tsf_temp : VECTOR [tsf_sizel; 'Temporary TSF 
o 84 OCAL 
5 mra_address, 'Preserve interrupted MRA 
8 § tsf_eddress; 'Preserve interrupted TSF 
8 HY 'Skip the comma and spaces, if any, following the numerical parameter, if any. 
34 skpsep (ira); 
$1 push_sca; 'Save the SAVEd SCA bits. 
$8 INCR i FROM 0 TO sca_size - 1 DO 
33 sca_copy C.i] = .sca C.i); 'Save SCA 
scat = Oy SCA prior to scanning the string. 
sca_lm = 0; 
98 sca_rm = 50; 'Set wide right nergin so won't gtert a new Line. 
99 sca_spacing = 1; ‘Single spac ng avoids spurious intermediate code. 
setcas (leave_case); ‘Force first character of first word 
1 'to upper gece rest to lower case. 
é sca_fc = true; iThis is the first character for the MRA. 
sca_fc_case = true; ‘Use first character-of-word case rules. 


cesses the .SEND TOC command Liss-32 V4.0-742 Page 


K 7? 
eagee 1 8Be Phat | Pee blwGhlsteRschonore Secastc.eurs1 2% caf 


sca_prescan = false; 1A af doesn't terminate the scan. 
sca_para_copy = .$ca_para_pnd; ‘Don’t let FCIMRA do any indentation, etc. 
~indent_copy = .sta_indent; less 


sca_para_pnd = false; ieee 


$¢ 
Ss 


sca_fill = false; 
sca_justify = false; 


‘Preserve the addresses of the structures to which these items refer. 
mra_address = .mra; 
tsf_address = .tsf; 


'Now switch working buffers, so that text currently being accumulated 
‘is not disturbed. 

mra = mra_temp; 

tsf = tsf_temp; 


'Now manually set up MRA, to look Like a FIXED STRING. 

fs_maxsize (mra) = 1000; 

fs_init (mra); !And that finishes the initialization. 
'Now initialize TSF for SCANT. 


INCR i FROM_O TO tsf_size - 1 DO 
tsf C.i] = 0; 


tsf_btc = true; ‘This TSF record describes a table of contents entry. 


SOSSRSS SS eae ssa 


oO 


oooo 


sca_wrd_int_l 
sca_wrd_ext_l 
sca_wrd_ise 1 
sca_wrd_draft_f 
sca_wrd_bars = 
sca_wrd_bar_chr 
sca_wrd_seqn_f = 0; 
sca_wrd_ipagen = 0; 
sca_wrd_footw = 0; 
sca_wrd_f_xtn = 0; 
sca_wrd_l_xtn = 0; 
wrd_l¢c_pnct = 0; 
sca_wrd_lst_sp = 0; 
sca_wrd_(st_jus = 6; 


“ 
o 
id 
= 
3 
a 
Qa 
9 
oe 


w 
o 
oe 


BRE REE EEF PWR SOOO Oo 0 


POROPOROROROPOPOPOPOPONOPONIUNIPUNINONUNININD s 
a a eter 


BIS SOeNOUrlE WN OCONONE WOON 


SOONAMNE WIN @ OOO NA UE WN 9 OD NOU EWN 0 ODNO NEW "OOOO 


sca_wrd_ cpend = rintes; 'Tell ENDCHR no character is pending. 

eterd: 'Preserve <INDEX flag> status. 
ed); 

oft Th_nd_flags_inde, ind_flag); ‘Disable <INDEX flag> 


'Save status of all flags. We disabl. all flags before scanning the 
‘text to be sent to the .BIC file; shecerore UNOFF flags can be 
‘sent as normal characters. (Vers. 1(125), KAD.) 

hold_all_flags = qca flag cad; 

oft Th_no_flags_all, 0); 


WA.WWIWAIPOPOPOPOPONOPYD 


‘Disable all flags. 
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STC Processes the .SEND TOC command 1b-se -1984 01:48:37 VAX-11 Bliss-32 V4.0-742 Page 7 
v04-000 STC == 1 ~3007 138% 94:4 711 DISKSVMSMASTER: CRUNOFF .SRCIJSTC.BLI;1 . (4) 
; ¢ 8 6} scant (); ! Now Let SCANT process the command. 
; § 8 es oft (.hold_all_flags, 0); ! Restore saved flags. 
3 8 ee oft (h_no_flags_inde, ind_flag); | !Restore <INDEX flag> to former status. 
: 240 flgt Cind_flag, flag_character] = .hold_ind_flag; 
: c3 é3 tlgt ing Ftag: flagvenableds = “hold, 1fd-eflags 
: 26 0 IF _ .flgt Cind_flag, flag_enabled) 
; rf: 0 q} ae sce. tlegs” . 
; ré o 7 atable C.flgt Cind_flag, flag_character]] = a_flag; 
: 248 0375 ‘Return here is with a word. 
; 249 0 6 
; 250 037 IF .do._toc THEN 
: 2] 8 4 BEGIN 
; 2g $340 IF .sca_wrd_cpend NEQ rintes THEN 
: 2¢ O38) endwrd (false, false, false); 'End word, but don't write a space too. 
; 256 O38s tsf_major = maj_send; ! ident ify this record as something from the 
; gor 0384 : ~SEND TOC command 
; 258 0385 tsf_minor = .num_value; ! Copy the value of ‘'n’’ from the .SEND command 
; 366 Ogee ! into the minor type code 
: 261 0388 ‘If at the top of any page Look egetn to see which page number to output. 
$ $66 0389 iThis code added (from HL.BLI) in V1.126c, ident 004. 
3 0390 IF -gca_btc AND .phan_top_page THEN 
: $8 $33) IF .phan_top_first THEN 
&9 U 0338 7 son ttpg ( flip$k_t ) 
3 u agen, _tocpa 
: $9 U $398 se “i “4 : a $k_t a ) 
; u npagen, _tocpag); 
: 3p aay test ll AN a He 
3 u agen, - 
BB tng. oom 
; npagen, -1); 
: $7 0401 § AFI pete Siren 
3; es 136 outlin (false); ! Don't disturb justification algorithm 
: 76 40 END; 
3: 277 ret 
3; af 405 INCR i FROM_O TO sca_size - 1 DO 
; Bee sca C.iJ = .sca_Copy C.i); ! Restore SCA 
: 81 8 pop_sca; ' Restore the SAVEd SCA bits. 
i 28 410 mra = .mra_address; ! Restore previous stati. 
3 Be 411 tsf = .tsf_address; 
3 5 tig sca_para_pnd = .sca_para_copy; 
; 4) sca_indent = .sca_indent_copy; 
3 8 414 ND; ‘End of STC 


-TITLE STC Processes the .SEND TOC command 
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SIC 16-Sep-1984 01:48:37 VAX=11_Bliss-32_V4.0-74 
v04-000 STC == 1e8ep- 1984 3:08:11 DISKSVMGMASTERSCRUNOFF. 8S Page 8 


DISKSVMSMASTER: CRUNOFF.SRCJSTC.BLI;1 (4) 
.IDENT \V04-000\ 
.PSECT $OWNS,NOEXE,2 
00000 PP_SCA: .BLKB 48 
.EXTRN RINTES 


v0vm 


ATABLE, FLGT 


“EXTRN GCA, IRA, MRA, NPAGEN 
“EXTRN NUMPRM, PAGEN, 
-EXTRN SCA, TSF, ENDWRD 
eEXTRN OFT, OUTLIN, PUTTPG 
“EXTRN RSKIPS, SCANT, SETCAS 
"EXTRN SKPSEP 
-PSECT $CODE$,NOWRT,2 
OFFC 60008 ENTRY SC, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 0248 
58 000000006 EF 9E 00002 HOVAB FLGT#112, R11 : 
5a 00000000' EF 9€ 00009 MOVAB PP_SCA, R10 : 
59 000000006 EF 9E 0019 MOVAB SCA+106, R9 ; 
5E Foe CE 9E 0001 MOVAB -1560(SP), SP : 
000000006 FF 9F 0001 PUSHAB IRA + 0289 
000000006 EF 1 FB 00 CALLS #1, SKPSEP ; 
6A 00 89 DO 000 MOVL  aSCA+100, PP_SCA : 
04 AA 04 B9 DO 0002D MOVL  @SCA+104. PP™SCA+4 ; 
08 AA 08 B89 DO 000 2 MOVL  @SCA+108. PPTSCA+8 ; 
0c AA 0c B9 bdO 0003 MOVL @SCA+112, PP_SCA+12 3 
10 AA 10 B9 DO 0003C MOVL @SCA+116, PP_SCA+16 3 
14 AA 14 B9 DO 00041 MOVL  @SCA+120. PP7SCA+20 ; 
18 AA 18 89 D0 0046 MOVL  @SCA+124. PPTSCA+24 ; 
1C AA iC B9 OD oRe8 MOVL aScA+l g. PP_SCA+ § 3 
20 AA 6 B9 DO 0005 MOVL  a@SCA+132, PPTSCA+ : 
24 «AA 4 89 DO 00055 MOVL  @SCA+136. PPTSCA+36 : 
28 «AA 8 B9 DO 0005A MOVL  @SCA+140. PPTSCA+40 ; 
2c OA C 8? DO 0005 MOVL  @SCA+144; PPTSCA+44 : 
0 D4 00064 CLRL oI + 0293 
FE8O CD40 9¢ A94 D9 0066 1$: MOVL SCACIJ, SCA_COPYCI) : 0294 
FO 50 OOOO00SF =F SCSéF OO6E AOBLEQ #95, I, 1$ : 
10 89 pA 00 CLRL asth+i ig : 0297 
146 89 96 BF 9A 00079 MOVZBL #150, aSCA+120 : 0298 
18 ~B9 1 D0 OO7E OVL #1, a@SCA+124 : 0099 
E D4 0008 RL = (§P) : 0300 
000000006 EF 1 FB 00084 CALLS #1, SETCAS ; 
30 AD 1 0 088 MOVL #1. SCAt 148 : 0 4 
6c AD 1 0 8 MOVL sot SCA+20 : 030 
48 Ad pA 093 CLRL = SCA#1 : 0 04 
57 78 Ad 7D 00096 MOV SCAtg2 » SCA_INDENT_COPY > 0306 
78 A9 7C O0009A CLRQ = SCA+ : 0308 
4 B9 D4 9090 CLRL  aSCA+104 : 0309 
B9 D4 AQ CLRL  aSCA+100 : 19 
5¢ 990000 G EF 09 0A MOVL MRA, MRA_ADDRESS > 031 
G EF AA MOVL TSF, TSF-ADDRESS > 0314 
000000006 EF 00OAO CE 9€E 00081 MOVAB MRA’TEMP> MRA : 18 
000000006 FF 6E 5 BA MOVAB TSF-TEMP, TSF : 031 
08 ap eet ge gs EF Be Boca Vou $060" °8cROD ‘howe 
be AO 04 OO00CE CLRL 13eR OS : 0323 
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2c 
OOAC 
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IND_FLAG 
IND_EFLAG 


+ HOLD 
0, HOLD_ 


” s 
moa 


12 
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ND_ 


OF 


#2 
aG 


2° 
So 
o 
oOo 
So 
So 
o 
So 
Oo 


CA 


000000006 


0365 


= (SP) 


T 


ALL_FLAGS 
OFT 


26 


#2, 
HOLD 


MOVZBL #1 
CALLS 


“I 
a= 
aM 
<> 
coon 


7c 
84 


00000000G_ EF 
00000000G_ EF 


FLGT+112 
» FLGT+40 


_IND_FLAG, 
IND-EFLAG 
440, 3$ 
aSCA+l4 
ATAB 


HOLD 
#3 
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68 


0381 


60(RO) 
7$ 


5 


3$ 
RO 
G6T+112CR0) 


é 

RO 
56(RO) 
RM+4, 

SCAN leks 


ENDWRD 
PHAN, 7 


LE, 

o_@FL 
=(SP) 
N 


F, 
PHANS24, 5$ 


#1 


FLGT 
PUSHAB PA 


#3 
T 
NUMP 


8 


Q 000000006 


000000006 8F 
000000006 fF 
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WOOT TMOVES LTFVOT VV L000 62400 LOOT OMOLDOOSO A WOSK— MT DOOCOA OO Wi 
Sooo eu OF-f- ODORS? OF-F- OP OOOO OO084% 4 O04 Ot OCOWWOOWORE Ou COOOWWWOOe 


SCO K KK KK OOO  SCOCOOOO.S OO Ve WIE WO WINN ETM OO MMOD OI UI a a te te 
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000000006 


STC 
v04-000 
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Routine Size: 


SOWNS 
SCODES 


File 


255$DUA 
255$DUA28 


28: 


Processes the .SEND TOC command 1b-5e - VAX-11 Bliss-32 V 
STC <= 1 et 7 93:4 
7E 01 CE 00106 5$: MNEGL = (SP) 
000000006 EF gf 138 PUSHAB “PAGE 
000000006 EF ‘ FB IDE $$: CALLS #2 ENTTPG 
000000006 EF Qi FB if8 CALLS #1. OUTLIN 
9C A94 rego coZ6 BG OOIF) Se; GUE dca cOPYEII, SCACIJ 
FO 30 oo00bnse BF F 1F9 AOBLEQ W957 58 
0 8B 6A D 1 OVL P &ch’ A+100 
4 B89 4 AA OD 5 MOVL pp Hatt see tast 4 
8 B9 8 AA D A MOVL  PP™ =$Av8, aSCA+108 
¢ B9 f AA D OF MOVL PP7SCA+12, aSCA+112 
1 B9 AA D 4 MOVL  PPTSCA+16, ascar116 
14 B89 14 AA D 19 MOVL PP=SCA+20, @SCA+1 
18 B89 18 AA DO 0021 MOVL PPSCA+24, @SCA+124 
1c «Bg 1¢ AA dO 00 MOVL  PPTSCA+28, aSCA+] : 
0 89 0 AA 00 0 MOVL PP"SCA+32, a@SCA+] 
4 89 4 AA 00 D MOVL PP7SCA+36, a@SCA+136 
8 B89 8 AA 0000 ‘ MOVL  PPTSCA+40, a@SCA+140 
C 89 C AA 00 00 MOVL  PP™SCA+44, @SCA+144 
00000000G_ EF 56 DO 00 g MOVL MRA ~ADDRESS, MRA 
000000006: EF 55 b0 024 MOVL TSF "ADDRESS 
78 =A9 57 7D 0024A MOVQ § SCA~INDENT_ tone. SCA+220 
04 0024E RET 


591 bytes, Routine 


0415 1 
0416 1 END 
0417 0 ELUDOM 


Base: SCODES + 0000 


'End of module 


PSECT SUMMARY 


Bytes Attributes 
48 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, patie 'ed bBo bbl 1 
591 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


SYSLIBJXPORT.L32;1 
RUNOFF . SRCJDSRLIB.L32;1 


aucovere Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 


Bok de Beg 00:00:3 


=742 
DISKSVMSMASTER: CRU RUNOFF SRCISTC.BLI;1 


Page 
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STC Processes the .SEND TOC command b-sep-1984 0} 348: 37 VAX-11 Bliss-32 V4.0-742 Page 11 
STC <= 4-Sep-1984 13:08:11 


DISKSVMSMASTER: CRUNOFF .SRCJSTC.BLI;1 (4) 


3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:STC/OBJ=OBJ$:STC MSRC$:STC/UPDATE=(ENH$:STC) 
3; Size: 591 ori + 48 data bytes 

; Run Time: 

; Elapsed stays Fes Cg 

3 Lines/CPU Min 18 § 

3 Lexenes /CPU-Kin: 1806 

3 pam | Used: 141 pages 

; Compilation Complete 
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